home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / tuerme ii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  490b  |  26 lines
  1. 0 rem      tuerme ii
  2. 10 (NULL):(NULL)1:poke53280,0
  3. 20 (NULL)
  4. 30 (NULL)1,0
  5. 40 (NULL)1
  6. 50 forr=4to0step-1
  7. 60 forp=4to0step-1
  8. 70 x=26*p-r*10+100
  9. 80 y=-p*10-r*10+179
  10. 90 h=rnd(1)*89    :rem  max. 89
  11. 100 y=y-h
  12. 110 gosub10000
  13. 120 next:next
  14. 130 fori=0to41:(NULL)i:next:
  15. 140 fori=223to319:(NULL)i:next
  16. 150 (NULL)50,199:(NULL)160,0:(NULL)180,0
  17. 160 (NULL)
  18. 1000 fori=0to10000:next
  19. 1010 run
  20. 10000 (NULL)2:(NULL)x+ 8,y-10,x+18,y:(NULL)x+ 8,y-10,x-18,y
  21. 10010 (NULL)x-18,y,x- 8,y+10:(NULL)x+18,y,x- 8,y+10
  22. 10020 (NULL)1:(NULL)x-18,y,x-18,y+h:(NULL)x- 8,y+10,x- 8,y+h+10
  23. 10030 (NULL)x+18,y,x+18,y+h
  24. 10040 (NULL)x-18,y+h,x- 8,y+h+10:(NULL)x+18,y+h,x- 8,y+h+10
  25. 10050 return
  26.